# Copyright (c) 2008-2009 Mikhail Chernov 
#
# This file is part of dcExplorer.
#
# dcExplorer is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 2 of the License, or
# (at your option) any later version.
#
# dcExplorer is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with dcExplorer.  If not, see <http://www.gnu.org/licenses/>.

package dcExplorer::wxui::frame::Fleet;
use strict;
use utf8;
use Wx;
use base 'Wx::Frame';
use Wx qw(wxHORIZONTAL wxVERTICAL wxEXPAND wxALL);
use wxui::widget::Fleet;

sub new {
	my $proto = shift;
	my $class = ref($proto) || $proto;
	my $parent = shift;
	my $id = shift;
	my $fleet = shift;

	my $self = $class->SUPER::new($parent, $id, "dcExplorer :: Fleet", [-1, -1], [600, 600]); 

	my $main_sizer = Wx::BoxSizer->new(wxVERTICAL);
	$self->SetSizer($main_sizer);
	$self->{Widget} = new dcExplorer::wxui::widget::Fleet($self, -1, $fleet);
	$main_sizer->Add($self->{Widget}, 1, wxEXPAND, wxALL, 0);

	return $self;
}

1;
